home *** CD-ROM | disk | FTP | other *** search
/ L' Effet Pommier 3 / L'Effet Pommier - Volume 03.iso / Programmation / Alpha ƒ / Tcl / ElectricAlias / Aliases / aliases.Awk < prev    next >
Text File  |  1994-06-18  |  2KB  |  36 lines
  1. # FILE: aliases.Awk
  2. #
  3. # DESC: Aliases for Awk mode
  4. #
  5. # LAST UPDATE: 01/06/93 5:32:02 AM 
  6.  
  7.     electricAlias-def ÑAwk ÑAwk ÑAwk
  8.     electricAlias-var Awk bb "\{"
  9.     electricAlias-var Awk eb "\}"
  10.     electricAlias-var Awk bc "#"
  11.     electricAlias-var Awk ec ""
  12.     electricAlias-def ÑAwk #!       "ñ╟askalias {File name} NAME╚#! /bin/nawk -f\r#\r# ñ{NAME}Ñ\r\rÑ"
  13.     electricAlias-def ÑAwk BEGIN    "BEGIN \{\r\tÑ\r\}ñ{bc}end BEGINñ{ec}Ñ"
  14.     electricAlias-def ÑAwk END      "END \{\r\tÑ\r\}ñ{bc}end ENDñ{ec}Ñ"
  15.     electricAlias-def ÑAwk function "ñ╟askalias {function name} NAME╚ñ{sep}function ñ{NAME}(Ñ) \{\r\tÑ\r\}ñ{bc}endfunction ñ{NAME}ñ{ec}\r\rÑ"
  16.     electricAlias-def ÑAwk \{       "\{\r\tÑ\r\}Ñ"
  17.     electricAlias-def ÑAwk do       "do \{\r\tÑ\r\} while (Ñ);Ñ"
  18.     electricAlias-def ÑAwk for      "for (Ñ;Ñ;Ñ) \{\r\tÑ\r\}ñ{bc}endforñ{ec}Ñ"
  19.     electricAlias-def ÑAwk foreach  "for (Ñ in Ñ) \{\r\tÑ\r\}ñ{bc}endforeachñ{ec}Ñ"
  20.     electricAlias-def ÑAwk while    "while (Ñ) \{\r\tÑ\r\}ñ{bc}endwhileñ{ec}Ñ"
  21.     electricAlias-def ÑAwk if       "if (Ñ) \{\r\tÑ\r\}ñ{bc}endifñ{ec}Ñ"
  22.     electricAlias-def ÑAwk elseif   "\b\} else if (Ñ) \{\rÑ"
  23.     electricAlias-def ÑAwk else     "\b\} else \{\rÑ"
  24.     electricAlias-def ÑAwk forever  "while (1) \{ ñ{bc}foreverñ{ec}\r\tÑ\r\}ñ{bc}endforeverñ{ec}Ñ"
  25.  
  26.     electricAlias-def ÑAwk readfile  "ñ╟askalias {File name} NAME╚lastno = Complete(LineCount(ñ{NAME}_path),0);
  27. ñ{NAME}_file = fopen(ñ{NAME}_path,\"r\");
  28. while (1) {
  29.     line = fgetline(ñ{NAME}_file);
  30.     if (feof(ñ{NAME}_file)) break;
  31.     Complete(++lineno,lastno);
  32.     Ñ
  33. }#endwhile 1
  34. fclose(ñ{NAME}_file);Ñ"
  35. #    electricAlias-def Awk "=" "ñ╟askalias \"Assignment or test?\" eq {=} Insert {==} {=}╚ñ{eq}"
  36.